home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / shared.bas < prev    next >
BASIC Source File  |  1997-06-14  |  500b  |  28 lines

  1. Attribute VB_Name = "MShared"
  2. Option Explicit
  3.  
  4. ' Anything shared by all of VBCore
  5.  
  6. Private sys As New CSystem
  7. Private vid As New CVideo
  8. Private kbd As New CKeyboard
  9. ' Put other global variables and objects here
  10.  
  11. Property Get System()
  12.     Set System = sys
  13. End Property
  14.  
  15. Property Get Video()
  16.     Set Video = vid
  17. End Property
  18.  
  19. Property Get Keyboard()
  20.     Set Keyboard = kbd
  21. End Property
  22.  
  23. Sub Main()
  24.     ' Put one-time only initialization here
  25.     Debug.Print "Main"
  26. End Sub
  27. '
  28.